ÉÇÉjÉ^Å[âÊñ ÇÃç∂è„äpÇ∆âEâ∫äpÇÃç¿ïWÇï‘ǵNjÇ∑ÅB GetScreen(VAR x1, y1, x2, y2 : INTEGER); ï∂éöóÒÇäpìxÇ…ïœä∑Ç≈Ç´ÇΩéûÇÕÅATRUEÇï‘ǵNjÇ∑ÅBǪÇÍà»äOÇÃéûÇÕFALSEÇï‘ǵNjÇ∑ÅB ValidAngStr(str : STRING; VAR value : REAL) : BOOLEAN; ï∂éöóÒÇêîílÇ…ïœä∑Ç≈Ç´ÇΩéûÇÕÅATRUEÇï‘ǵNjÇ∑ÅBǪÇÍà»äOÇÃéûÇÕFALSEÇï‘ǵNjÇ∑ÅB ValidNumStr(str : STRING; VAR value: REAL): BOOLEAN; É`ÉFÉbÉNÉ{ÉbÉNÉXÇ©ÉâÉWÉIÉ{É^ÉìÇ™ëIëÇ≥ÇÍǃǢÇÈéûÇÕTRUEÇï‘ǵNjÇ∑ÅBǪÇÍà»äOÇÃéûÇÕFALSEÇï‘ǵNjÇ∑ÅB ItemSel(fieldID : INTEGER): BOOLEAN; éwíËfieldIDÇÃÉ`ÉFÉbÉNÉ{ÉbÉNÉXÇ©ÉâÉWÉIÉ{É^ÉìÇëIëÇ©ëIëâèúDžǵNjÇ∑ÅB SetItem(fieldID : INTEGER; select : BOOLEAN); éwíËfieldIDÇÃÉtÉBÅ[ÉãÉhÇÃï∂éöóÒÇÉZÉåÉNÉgǵNjÇ∑ÅB SelField(fieldID : INTEGER); ÉJÉXÉ^ÉÄÉ_ÉCÉAÉçÉOÇÃÉtÉBÅ[ÉãÉhÇ…ï∂éöóÒÇê›íËǵNjÇ∑ÅB SetField(fieldID : INTEGER; str : STRING); éwíËfieldIDÇÃÉtÉBÅ[ÉãÉhÇ…ì¸óÕÇ≥ÇÍÇΩï∂éöóÒÇï‘ǵNjÇ∑ÅB GetField(fieldID : INTEGER): STRING; ÉJÉXÉ^ÉÄÉ_ÉCÉAÉçÉOÇ≈ÇÃÉÜÅ[ÉUÅ[ÇÃìÆçÏÇäƒéãǵǃïÒçêǵNjÇ∑ÅB DialogEvent(VAR item : INTEGER); åªç›ï\é¶Ç≥ÇÍǃǢÇÈÉJÉXÉ^ÉÄÉ_ÉCÉAÉçÉOÇè¡ãéǵNjÇ∑ÅB ClrDialog; éwíËdialogIDÇÃÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB GetDialog(dialogID : INTEGER); ÉJÉXÉ^ÉÄÉ_ÉCÉAÉçÉOÇ…ÉtÉBÅ[ÉãÉhÇí«â¡ÇµÇ‹Ç∑ÅB AddField(fieldStr: STRING; ItemID, fieldType, x1, y1, x2, y2 : INTEGER); ÉJÉXÉ^ÉÄÉ_ÉCÉAÉçÉOÇ…É{É^ÉìÇí«â¡ÇµÇ‹Ç∑ÅB AddButton(buttonStr : STRING; ItemID, buttonType, x1, y1, x2, y2 : INTEGER); ÉJÉXÉ^ÉÄÉ_ÉCÉAÉçÉOÇÃê∂ê¨ÇèIóπǵNjÇ∑ÅB EndDialog; ÉJÉXÉ^ÉÄÉ_ÉCÉAÉçÉOÇÃê∂ê¨ÇäJénǵNjÇ∑ÅB BeginDialog(dialogID, dialogType, x1, y1, x2, y2 : INTEGER); íºëOÇ…ï\é¶Ç≥ÇÍÇΩÉ_ÉCÉAÉçÉOÇ≈cancelÉ{É^ÉìÇ™ÉNÉäÉbÉNÇ≥ÇÍÇΩǩǫǧǩÇï‘ǵNjÇ∑ÅB DidCancel : BOOLEAN; ÉÜÅ[ÉUÅ[Ç…3DÇÃç¿ïWílÇì¸óÕÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB PtDialog3D((DisplayStr, XStr, YStr, ZStr : STRING; VAR XPt, YPt, ZPt : REAL); ÉÜÅ[ÉUÅ[Ç…éOǬÇÃäpìxÇì¸óÕÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB AngDialog3D(DisplayStr, XStr, YStr, ZStr : STRING; VAR XAngle, YAngle, ZAngle : REAL); ÉÜÅ[ÉUÅ[Ç…ÉÅÉbÉZÅ[ÉWÇì`ǶÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB AlrtDialog(Message : STRING); ÉÜÅ[ÉUÅ[Ç…YES/NOÇÃëIëÇÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB YNDialog(RequestStr : STRING) : BOOLEAN; ÉÜÅ[ÉUÅ[Ç…ï∂éöóÒÇì¸óÕÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB StrDialog(RequestStr, Default : STRING) : STRING; ÉÜÅ[ÉUÅ[Ç…é¿êîílÇì¸óÕÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB RealDialog(RequestStr, Default : STRING) : REAL; ÉÜÅ[ÉUÅ[Ç…ç¿ïWílÇì¸óÕÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB PtDialog(RequestStr, DefaultX, DefaultY : STRING; X, Y : REAL); ÉÜÅ[ÉUÅ[Ç…êÆêîílÇì¸óÕÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB IntDialog(RequestStr, Default : STRING) : INTEGER; ÉÜÅ[ÉUÅ[Ç…ãóó£Çì¸óÕÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB DistDialog(RequestStr, Default : STRING) : REAL; ÉÜÅ[ÉUÅ[Ç…äpìxÇì¸óÕÇ∑ÇÈÇÊǧDžãÅÇflÇÈÉ_ÉCÉAÉçÉOÇï\é¶ÇµÇ‹Ç∑ÅB AngDialog(RequestStr, Default : STRING) : REAL;